home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8406.arc / TEST1.PRG < prev    next >
Text File  |  1986-09-14  |  384b  |  24 lines
  1. *********************
  2. * Program TEST1.PRG *
  3. *********************
  4. ERASE
  5. CLEAR
  6. SET TALK OFF
  7. STORE 1 TO N1
  8. STORE 1 TO M1
  9. DO WHILE N1<100
  10. STORE N1+1 TO N1
  11. IF N1>50
  12. DO TEST2
  13. ENDIF
  14. DO WHILE M1<100
  15. STORE M1+1 TO M1
  16. IF N1<25
  17. DO TEST3
  18. ENDIF
  19. ENDDO
  20. ENDDO
  21. DO TEST5
  22. CLEAR
  23. RETURN
  24.